home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2005 Utilities / CHIP Utilities 2005.7z / CHIP Utilities 2005.iso / images / arachne.igz / arachne.img / LEVEL0 / UTILZ.CAB / bin / Zerodel.bat < prev   
DOS Batch File  |  2005-01-16  |  2KB  |  66 lines
  1. @if "%debug%"=="" echo off
  2. :: Zerodel Begin ::
  3. set _zero=9
  4. if not "%_zero%"=="9" goto _end
  5. set _zero=
  6. set _zerodel=999999999
  7. if not "%_zerodel%"=="999999999" goto _end
  8. set _zerodel=
  9. if not "%_nwdtmp%"=="" goto _tmpok
  10. set _zero=1
  11. set _nwdtmp=%tmp%
  12. if not "%tmp%"=="%_nwdtmp%" goto _end
  13. :_tmpok
  14.  
  15.  
  16. if "%1"=="" goto _end
  17. if not exist %1 goto _end
  18.  
  19. if not exist bin\varset.com if not exist %ramdrv%\bin\varset.com goto _end
  20. if not exist bin\el!.com if not exist %ramdrv%\bin\el!.com goto _end
  21.  
  22. if exist %_nwdtmp%\_zerodel.bat del %_nwdtmp%\_zerodel.bat >%tmp%\nul
  23. if exist %_nwdtmp%\_zerodel.bat goto _end
  24. if exist bin\varset.com goto _binvar
  25. if exist %ramdrv%\bin\varset.com goto _ramvar
  26. goto _end
  27.  
  28. :_ramvar
  29. %ramdrv%\bin\varset.com _zerodel=size %1 >%_nwdtmp%\_zerodel.bat
  30. if exist %_nwdtmp%\_zerodel.bat call %_nwdtmp%\_zerodel.bat
  31. if exist %_nwdtmp%\_zerodel.bat del %_nwdtmp%\_zerodel.bat >%tmp%\nul
  32. if "%2"=="" if "%_zerodel%"=="0" del %1 >%tmp%\nul
  33. if not "%_zero%"=="" set _nwdtmp=
  34. set _zero=
  35. if "%_zerodel%"=="0" goto _er1
  36. set _zerodel=
  37. %ramdrv%\bin\el! 0
  38. goto _veryend
  39. :_er1
  40. set _zerodel=
  41. %ramdrv%\bin\el! 1
  42. goto _veryend
  43.  
  44. :_binvar
  45. bin\varset.com _zerodel=size %1 >%_nwdtmp%\_zerodel.bat
  46. if exist %_nwdtmp%\_zerodel.bat call %_nwdtmp%\_zerodel.bat
  47. if exist %_nwdtmp%\_zerodel.bat del %_nwdtmp%\_zerodel.bat >%tmp%\nul
  48. if "%2"=="" if "%_zerodel%"=="0" del %1 >%tmp%\nul
  49. if not "%_zero%"=="" set _nwdtmp=
  50. set _zero=
  51. if "%_zerodel%"=="0" goto _eb1
  52. set _zerodel=
  53. bin\el! 0
  54. goto _veryend
  55. :_eb1
  56. set _zerodel=
  57. bin\el! 1
  58. goto _veryend
  59.  
  60. :_end
  61. if not "%_zero%"=="" set _nwdtmp=
  62. set _zero=
  63. set _zerodel=
  64. :_veryend
  65. :: Zerodel End ::
  66.